home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr52
/
ncclib.zip
/
NCCDEMO.ZIP
/
G_HELP.PRG
< prev
next >
Wrap
Text File
|
1993-05-01
|
4KB
|
111 lines
//═══════════════════════════════════════════════════════╕
// Program .....: G_Help │
// CopyRight ...: 1992 National Computer Consultants │
// All rights are reserved. │
// Author ......: Greg Rice │
//═══════════════════════════════════════════════════════╛
#include "g_event.ch"
#include "inkey.ch"
#include "Mouse.ch"
Function g_about()
local screen := savescreen(), cColor := SetColor(), Mouse := MouseSys()
SetColor("W+/BG")
WinBox(5,13,19,66,0,4,.t.)
@ 05,14 say "╡"
@row(),col() say " National Computer Consultants " color 'W/RB+'
@row(),col() say "╞"
@ 8,31 say 'Library Demo Version'
@ 10,16 say 'Copyright (c) 1993 National Computer Consultants'
@ 12,20 say 'Phone (305) 475-7740 Fax (305) 473-4892'
@ 13,31 say 'CompuServe 70324,634'
WinBox(15,37,17,43,,4)
@ 16,39 say 'Esc' color 'W+/RB+'
While .t.
Mouse:MouseRead()
if Mouse:Row == 16 .and. ;
Mouse:Column >= 38 .and. ;
Mouse:Column <= 42 .or. ;
Mouse:Ascii == K_ESC .or. ;
Mouse:Button == RIGHT_BUTTON
While Mouse:Button # 0 .and. Mouse:ButtonHold( Mouse:Button )
Enddo
exit
endif
enddo
Mouse:ClearButtons()
SetColor( cColor )
restscreen(,,,,screen)
Return( NIL )
Function g_Help( x )
local screen := savescreen(), cColor := SetColor(), Mouse := MouseSys()
SetColor("W+/BG")
WinBox(03,10,21,70,,4,.t.)
@ 03,11 say "╡"
@row(),col() say " National Computer Consultants " color 'W/RB+'
@row(),col() say "╞"
if x == ev_GenHelp
@ 5,13 say 'This demo program is to show the use of National'
@ 6,13 say 'Computer Consultants library. It provides for Object'
@ 7,13 say 'Oriented Programming using our library and Class(y)'
@ 8,13 say 'library. It also provides for mouse support for menus,'
@ 9,13 say 'windows and picklist. The mouse is active at most'
@ 10,13 say 'places in the demo. The windows are moveable by mouse'
@ 11,13 say 'and by using the keyboard. The windows with rows of'
@ 12,13 say 'data are also scrollable by the mouse. Anywhere you see'
@ 13,13 say 'the arrows, ( ), you can click on them with'
@ 14,13 say 'the mouse to move the highlite bar. You also can scroll'
@ 15,13 say 'in windows by clicking with the mouse on that record.'
elseif x == ev_WinHelp
@ 5,13 say 'Data windows can be moved and resized by using the'
@ 6,13 say 'mouse or the keyboard. By clicking on the top border'
@ 7,13 say 'and holding the right mouse button down you can move'
@ 8,13 say 'the window around on the screen. Release the button'
@ 9,13 say 'when you are done. You can also use the ( ALT+M ) key'
@ 10,13 say 'to move the window. Windows can be resized by clicking'
@ 11,13 say 'on any one of the 4 corners and holding down the right'
@ 12,13 say 'mouse button and moving the mouse around. You can zoom'
@ 13,13 say 'windows with the ( ALT+Z ) keys. You can switch between'
@ 14,13 say 'windows by clicking on the one you want active or with'
@ 15,13 say 'the ( TAB, SHIFT+TAB ) keys. You can have open up to 8'
@ 16,13 say 'windows. The help windows are a modal type, unmovable.'
endif
WinBox(18,37,20,43,,4)
@ 19,39 say 'Esc' color 'W+/RB+'
while .t.
Mouse:MouseRead()
if Mouse:Row == 19 .and. ;
Mouse:Column >= 38 .and. ;
Mouse:Column <= 42 .or. ;
Mouse:Ascii == K_ESC .or. ;
Mouse:Button == RIGHT_BUTTON
While Mouse:Button # 0 .and. Mouse:ButtonHold( Mouse:Button )
Enddo
exit
endif
enddo
Mouse:ClearButtons()
SetColor( cColor )
restscreen(,,,,screen)
Return( NIL )